/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Add-Ons / Frontier / Freeze Dates 1.1 / Freeze Dates / Freeze Dates.rsrc / scpt_128

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 f0 00 02 00 00 | 01 9e 00 00 07 45 00 00 |........|.....E..|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 06 54 00 00 a6 15 | ab e0 af 71 4c 1a 00 00 |...T....|...qL...|
|00000050| 00 5f 00 00 00 7e 00 95 | 01 23 01 d7 4c 41 4e 44 |._...~..|.#..LAND|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 a9 20 31 39 |........|..... 19|
|00000080| 39 34 2d 39 37 20 53 6b | 79 54 6f 75 63 68 20 43 |94-97 Sk|yTouch C|
|00000090| 6f 6d 6d 75 6e 69 63 61 | 74 69 6f 6e 73 20 d1 20 |ommunica|tions . |
|000000a0| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|000000b0| 76 65 64 0d 09 68 74 74 | 70 3a 2f 2f 77 77 77 2e |ved..htt|p://www.|
|000000c0| 73 6b 79 74 6f 75 63 68 | 2e 63 6f 6d 2f 73 6f 66 |skytouch|.com/sof|
|000000d0| 74 2f 6d 61 63 2f 66 72 | 6f 6e 74 69 65 72 2e 68 |t/mac/fr|ontier.h|
|000000e0| 74 6d 6c 0d 09 57 72 69 | 74 74 65 6e 20 62 79 20 |tml..Wri|tten by |
|000000f0| 45 72 69 6b 20 43 2e 20 | 54 68 61 75 76 69 6e 0d |Erik C. |Thauvin.|
|00000100| 09 09 65 72 69 6b 40 73 | 6b 79 74 6f 75 63 68 2e |..erik@s|kytouch.|
|00000110| 63 6f 6d 0d 6c 6f 63 61 | 6c 0d 09 70 61 74 68 20 |com.loca|l..path |
|00000120| 3d 20 73 79 73 74 65 6d | 2e 64 72 6f 70 6c 65 74 |= system|.droplet|
|00000130| 2e 70 61 74 68 0d 09 74 | 69 6d 65 2c 66 50 61 74 |.path..t|ime,fPat|
|00000140| 68 2c 73 65 74 43 72 65 | 61 74 69 6f 6e 2c 74 6f |h,setCre|ation,to|
|00000150| 74 61 6c 4e 62 72 0d 69 | 66 20 73 79 73 74 65 6d |talNbr.i|f system|
|00000160| 2e 64 72 6f 70 6c 65 74 | 2e 73 74 61 72 74 75 70 |.droplet|.startup|
|00000170| 0d 09 6c 6f 63 61 6c 20 | 28 64 6c 6f 67 2c 64 69 |..local |(dlog,di|
|00000180| 74 6c 29 0d 09 6c 6f 63 | 61 6c 20 28 72 6f 6f 74 |tl)..loc|al (root|
|00000190| 50 61 74 68 20 3d 20 46 | 72 6f 6e 74 69 65 72 2e |Path = F|rontier.|
|000001a0| 67 65 74 46 69 6c 65 50 | 61 74 68 28 29 29 0d 09 |getFileP|ath())..|
|000001b0| 6c 6f 63 61 6c 20 28 61 | 70 70 50 61 74 68 20 3d |local (a|ppPath =|
|000001c0| 20 73 79 73 74 65 6d 2e | 64 72 6f 70 6c 65 74 2e | system.|droplet.|
|000001d0| 61 70 70 50 61 74 68 29 | 0d 09 72 65 7a 2e 67 65 |appPath)|..rez.ge|
|000001e0| 74 52 65 73 6f 75 72 63 | 65 28 61 70 70 50 61 74 |tResourc|e(appPat|
|000001f0| 68 2c 27 44 4c 4f 47 27 | 2c 32 35 30 30 30 2c 40 |h,'DLOG'|,25000,@|
|00000200| 64 6c 6f 67 29 0d 09 72 | 65 7a 2e 70 75 74 52 65 |dlog)..r|ez.putRe|
|00000210| 73 6f 75 72 63 65 28 72 | 6f 6f 74 50 61 74 68 2c |source(r|ootPath,|
|00000220| 27 44 4c 4f 47 27 2c 32 | 35 30 30 30 2c 40 64 6c |'DLOG',2|5000,@dl|
|00000230| 6f 67 29 0d 09 72 65 7a | 2e 67 65 74 52 65 73 6f |og)..rez|.getReso|
|00000240| 75 72 63 65 28 61 70 70 | 50 61 74 68 2c 27 44 49 |urce(app|Path,'DI|
|00000250| 54 4c 27 2c 32 35 30 30 | 30 2c 40 64 69 74 6c 29 |TL',2500|0,@ditl)|
|00000260| 0d 09 72 65 7a 2e 70 75 | 74 52 65 73 6f 75 72 63 |..rez.pu|tResourc|
|00000270| 65 28 72 6f 6f 74 50 61 | 74 68 2c 27 44 49 54 4c |e(rootPa|th,'DITL|
|00000280| 27 2c 32 35 30 30 30 2c | 40 64 69 74 6c 29 0d 69 |',25000,|@ditl).i|
|00000290| 66 20 73 79 73 74 65 6d | 2e 64 72 6f 70 6c 65 74 |f system|.droplet|
|000002a0| 2e 63 6c 6f 73 65 64 6f | 77 6e 0d 09 46 69 6e 64 |.closedo|wn..Find|
|000002b0| 65 72 2e 62 72 69 6e 67 | 54 6f 46 72 6f 6e 74 28 |er.bring|ToFront(|
|000002c0| 29 0d 09 72 65 74 75 72 | 6e 28 74 72 75 65 29 0d |)..retur|n(true).|
|000002d0| 6f 6e 20 63 68 61 6e 67 | 65 44 61 74 65 73 28 66 |on chang|eDates(f|
|000002e0| 50 61 74 68 29 0d 09 66 | 69 6c 65 2e 73 65 74 4d |Path)..f|ile.setM|
|000002f0| 6f 64 69 66 69 65 64 28 | 66 50 61 74 68 2c 74 69 |odified(|fPath,ti|
|00000300| 6d 65 29 0d 09 69 66 20 | 28 73 65 74 43 72 65 61 |me)..if |(setCrea|
|00000310| 74 69 6f 6e 20 3d 3d 20 | 74 72 75 65 29 0d 09 09 |tion == |true)...|
|00000320| 66 69 6c 65 2e 73 65 74 | 43 72 65 61 74 65 64 28 |file.set|Created(|
|00000330| 66 50 61 74 68 2c 74 69 | 6d 65 29 0d 09 74 6f 74 |fPath,ti|me)..tot|
|00000340| 61 6c 4e 62 72 20 3d 20 | 74 6f 74 61 6c 4e 62 72 |alNbr = |totalNbr|
|00000350| 20 2b 20 31 0d 6f 6e 20 | 64 6f 46 6f 6c 64 65 72 | + 1.on |doFolder|
|00000360| 28 66 6f 6c 64 65 72 29 | 0d 09 66 69 6c 65 6c 6f |(folder)|..filelo|
|00000370| 6f 70 28 66 50 61 74 68 | 20 69 6e 20 66 6f 6c 64 |op(fPath| in fold|
|00000380| 65 72 29 0d 09 09 6d 73 | 67 20 28 66 69 6c 65 2e |er)...ms|g (file.|
|00000390| 66 69 6c 65 46 72 6f 6d | 50 61 74 68 28 66 50 61 |fileFrom|Path(fPa|
|000003a0| 74 68 29 29 0d 09 09 63 | 68 61 6e 67 65 44 61 74 |th))...c|hangeDat|
|000003b0| 65 73 28 66 50 61 74 68 | 29 0d 09 09 69 66 20 66 |es(fPath|)...if f|
|000003c0| 69 6c 65 2e 69 73 46 6f | 6c 64 65 72 28 66 50 61 |ile.isFo|lder(fPa|
|000003d0| 74 68 29 0d 09 09 09 64 | 6f 66 6f 6c 64 65 72 28 |th)....d|ofolder(|
|000003e0| 66 50 61 74 68 29 0d 6f | 6e 20 69 74 65 6d 68 69 |fPath).o|n itemhi|
|000003f0| 74 20 28 69 74 65 6d 29 | 0d 09 63 61 73 65 20 69 |t (item)|..case i|
|00000400| 74 65 6d 0d 09 09 2d 31 | 0d 09 09 09 6c 6f 63 61 |tem...-1|....loca|
|00000410| 6c 28 63 68 29 0d 09 09 | 09 63 68 20 3d 20 73 74 |l(ch)...|.ch = st|
|00000420| 72 69 6e 67 2e 67 65 74 | 57 6f 72 64 43 68 61 72 |ring.get|WordChar|
|00000430| 28 29 0d 09 09 09 73 74 | 72 69 6e 67 2e 73 65 74 |()....st|ring.set|
|00000440| 57 6f 72 64 43 68 61 72 | 28 27 3b 27 29 0d 09 09 |WordChar|(';')...|
|00000450| 09 64 69 61 6c 6f 67 2e | 73 65 74 56 61 6c 75 65 |.dialog.|setValue|
|00000460| 28 33 2c 20 22 54 61 72 | 67 65 74 3a 20 d2 22 20 |(3, "Tar|get: ." |
|00000470| 2b 20 66 69 6c 65 2e 66 | 69 6c 65 46 72 6f 6d 50 |+ file.f|ileFromP|
|00000480| 61 74 68 28 50 61 74 68 | 29 20 2b 20 22 d3 22 29 |ath(Path|) + ".")|
|00000490| 0d 09 09 09 64 69 61 6c | 6f 67 2e 73 65 74 56 61 |....dial|og.setVa|
|000004a0| 6c 75 65 28 34 2c 73 74 | 72 69 6e 67 2e 66 69 72 |lue(4,st|ring.fir|
|000004b0| 73 74 57 6f 72 64 28 63 | 6c 6f 63 6b 2e 6e 6f 77 |stWord(c|lock.now|
|000004c0| 28 29 29 29 0d 09 09 09 | 64 69 61 6c 6f 67 2e 73 |()))....|dialog.s|
|000004d0| 65 74 56 61 6c 75 65 28 | 35 2c 73 74 72 69 6e 67 |etValue(|5,string|
|000004e0| 2e 54 69 6d 65 53 74 72 | 69 6e 67 28 29 29 0d 09 |.TimeStr|ing())..|
|000004f0| 09 09 64 69 61 6c 6f 67 | 2e 73 65 74 56 61 6c 75 |..dialog|.setValu|
|00000500| 65 28 36 2c 66 61 6c 73 | 65 29 0d 09 09 09 73 74 |e(6,fals|e)....st|
|00000510| 72 69 6e 67 2e 73 65 74 | 57 6f 72 64 43 68 61 72 |ring.set|WordChar|
|00000520| 28 63 68 29 0d 09 09 09 | 72 65 74 75 72 6e 20 28 |(ch)....|return (|
|00000530| 74 72 75 65 29 0d 09 09 | 31 0d 09 09 09 73 65 74 |true)...|1....set|
|00000540| 43 72 65 61 74 69 6f 6e | 20 3d 20 28 64 69 61 6c |Creation| = (dial|
|00000550| 6f 67 2e 67 65 74 56 61 | 6c 75 65 28 36 29 29 0d |og.getVa|lue(6)).|
|00000560| 09 09 09 74 69 6d 65 20 | 3d 20 28 64 69 61 6c 6f |...time |= (dialo|
|00000570| 67 2e 67 65 74 56 61 6c | 75 65 28 34 29 20 2b 20 |g.getVal|ue(4) + |
|00000580| 22 3b 20 22 20 2b 20 64 | 69 61 6c 6f 67 2e 67 65 |"; " + d|ialog.ge|
|00000590| 74 56 61 6c 75 65 28 35 | 29 29 0d 09 09 09 72 65 |tValue(5|))....re|
|000005a0| 74 75 72 6e 20 28 66 61 | 6c 73 65 29 0d 09 09 32 |turn (fa|lse)...2|
|000005b0| 0d 09 09 09 72 65 74 75 | 72 6e 20 28 66 61 6c 73 |....retu|rn (fals|
|000005c0| 65 29 0d 09 09 36 0d 09 | 09 09 69 66 20 28 64 69 |e)...6..|..if (di|
|000005d0| 61 6c 6f 67 2e 67 65 74 | 56 61 6c 75 65 28 36 29 |alog.get|Value(6)|
|000005e0| 20 3d 3d 20 66 61 6c 73 | 65 29 0d 09 09 09 09 64 | == fals|e).....d|
|000005f0| 69 61 6c 6f 67 2e 73 65 | 74 56 61 6c 75 65 28 36 |ialog.se|tValue(6|
|00000600| 2c 74 72 75 65 29 0d 09 | 09 09 65 6c 73 65 0d 09 |,true)..|..else..|
|00000610| 09 09 09 64 69 61 6c 6f | 67 2e 73 65 74 56 61 6c |...dialo|g.setVal|
|00000620| 75 65 28 36 2c 66 61 6c | 73 65 29 0d 09 09 09 72 |ue(6,fal|se)....r|
|00000630| 65 74 75 72 6e 28 74 72 | 75 65 29 0d 09 09 39 0d |eturn(tr|ue)...9.|
|00000640| 09 09 09 69 66 20 28 64 | 69 61 6c 6f 67 2e 67 65 |...if (d|ialog.ge|
|00000650| 74 56 61 6c 75 65 28 36 | 29 20 3d 3d 20 66 61 6c |tValue(6|) == fal|
|00000660| 73 65 29 0d 09 09 09 09 | 64 69 61 6c 6f 67 2e 73 |se).....|dialog.s|
|00000670| 65 74 56 61 6c 75 65 28 | 36 2c 74 72 75 65 29 0d |etValue(|6,true).|
|00000680| 09 09 09 64 69 61 6c 6f | 67 2e 73 65 74 56 61 6c |...dialo|g.setVal|
|00000690| 75 65 28 34 2c 20 73 74 | 72 69 6e 67 2e 6e 74 68 |ue(4, st|ring.nth|
|000006a0| 46 69 65 6c 64 28 63 6c | 6f 63 6b 2e 6e 6f 77 28 |Field(cl|ock.now(|
|000006b0| 29 2c 20 27 3b 27 2c 20 | 31 29 29 0d 09 09 09 64 |), ';', |1))....d|
|000006c0| 69 61 6c 6f 67 2e 73 65 | 74 56 61 6c 75 65 28 35 |ialog.se|tValue(5|
|000006d0| 2c 20 22 30 3a 30 30 22 | 29 0d 09 09 09 72 65 74 |, "0:00"|)....ret|
|000006e0| 75 72 6e 28 74 72 75 65 | 29 0d 09 65 6c 73 65 0d |urn(true|)..else.|
|000006f0| 09 09 72 65 74 75 72 6e | 20 28 74 72 75 65 29 0d |..return| (true).|
|00000700| 69 66 20 66 69 6c 65 2e | 65 78 69 73 74 73 28 70 |if file.|exists(p|
|00000710| 61 74 68 29 0d 09 64 69 | 61 6c 6f 67 2e 72 75 6e |ath)..di|alog.run|
|00000720| 20 28 32 35 30 30 30 2c | 31 2c 40 69 74 65 6d 68 | (25000,|1,@itemh|
|00000730| 69 74 29 0d 09 69 66 20 | 28 74 69 6d 65 20 3e 20 |it)..if |(time > |
|00000740| 30 29 0d 09 09 49 66 20 | 66 69 6c 65 2e 69 73 46 |0)...If |file.isF|
|00000750| 6f 6c 64 65 72 28 70 61 | 74 68 29 0d 09 09 09 64 |older(pa|th)....d|
|00000760| 6f 46 6f 6c 64 65 72 28 | 70 61 74 68 29 0d 09 09 |oFolder(|path)...|
|00000770| 63 68 61 6e 67 65 44 61 | 74 65 73 28 70 61 74 68 |changeDa|tes(path|
|00000780| 29 0d 09 09 6d 73 67 28 | 74 6f 74 61 6c 4e 62 72 |)...msg(|totalNbr|
|00000790| 20 2b 20 22 20 66 69 6c | 65 73 2f 66 6f 6c 64 65 | + " fil|es/folde|
|000007a0| 72 73 20 77 65 72 65 20 | 63 68 61 6e 67 65 64 2e |rs were |changed.|
|000007b0| 22 29 0d 09 72 65 74 75 | 72 6e 28 74 72 75 65 29 |")..retu|rn(true)|
|000007c0| 0d 84 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 80 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00    |........|....... |
+--------+-------------------------+-------------------------+--------+--------+